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AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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p> 


: 
PPPPPPPP AAAAAA SSSSSSSS WW WW RRRRRRRR IIIIII FFFFFFFFFF DDDDDDDD 11 | F 
PPPPPPPP AAAAAA SSSSSSSS_ WW WW RRRRRRRR III] FFFFFFFFFF DDDDDDDD 11 | F 
PP PP AA AA SS Wd Ww RR II FF DD DD 1111 5 
PP PP AA AA SS WW Ww RR RR II FF DD DD 1111 | $ 
PP Pr AA SS WW Ww RR RR II FF DD DD 11 3 
PP PP AA AA SS WW Ww RR oe II FF DD DD 11 F 
PPPPPPPP AA AA SSSSSS lol WW RRRRRRRR II FFFFFFFF DD DD 11 3 
PPPPPPPP AA SSSSSS Wiel WW RRRRRRRR II FRFFFFFF DD DD 11 3 
PP AAAAAAAAAA SS WW WW Ww RR RR II FF DD DD 11 s 
pe AAAAAAAAAA SS WW WW WW RR RR II FF DD DD 11 3 
PP AA SS WWWW WwWWW RR RR II FF DD DD 11 been 3 
PP AA AA SS WwWWwW WwWww RR RR II FF DD DD 11 sarge 3 
PP AA AA SSSSSSSS Wd WW RR RR IIIIII FF DDDDDDDD 111111 ead F 
pp AA AA SSSSSSSS WW WW RR HR IIII11 FF DDDDDDDD 111111 nae : 
LL IIII11I SSSSSSSS ; 
LL III] SSSSSSSS 3 
LL II ss 5 
LL II ss g 
LL II SS 3 
LL I] Ss 3 
LL II SSSSSS ; 
LL I] SSSSSS : 
LL II SS : 
LL I] ss : 
LL II SS : 
LL II ss : 
LLLLLLLLLL IIIIII SSSSSSSS : 
LLLLLLLLLL IIIII11 SSSSSSSS ; 


PASSWRITE_REALF Write an D_floating in F format - V1 semantics 1b-5¢ -Sep-1984 02: 12: 752 AX-11 Bliss-32 V4.0- mh Page 1. 
14-Sep-1984 12:52:04 PASRTL.SRCJPASWRIFD1.832;1 (1). 
corey 001 0 MODULE PASSWRITE REALF D]_( XTJTLE ‘Write an D -floating in F format = v1 semant ics, | ; 
; ¢ oS TD ENT 1=002' Le: PASWRIFD1.832 Edit: SBL1002 ‘ 
; 4 9004 1 BEGIN | ; 
: § i : PITIIILILIILILL LLL LLL LLL LILI Lili liliiiiiiiiiiiiiiiiiii : 
: '® * ; 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * Fy 
a. 0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . | ; 
3 19 Berg : :* ALL RIGHTS RESERVED. * | : 
Ps 7* ad } e 
: ig Belg 1 !* THIS ee IS FURNISHED ge Be LICENSE AND MAY BE USED AND COPIED * : 
23 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | ; 
ee 0) 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR AN THE * ; 
; 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; i SEA } :* TRANSFERRED. * | : 
s fe * : 
; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; @ 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
: $) B08) : :* CORPORATION. * | $ 
; 'e * : 
6 «6a $093 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | ; 
: 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
Be -. 0025 1 !* * : 
;: oo 0026 1 !* * ; 
: 27 QO27 1 eee eee eee RRA REET AAA RARER AERA 3 
; os 0028 1! $ 
: $3 0029 1 3 
3 0 0030 1 !++ 3 
; 2 0031 1 ! FACILITY: Pascal Language Support : 
; $8 0032 1! : 
H 3 0033 1 | ABSTRACT: 
;  % 0034 1: | 
; 35 0035 1: This module contains a procedure which writes a D_floating in 
3 $$ B038 : fixed-point notation to a textfile using V1 semantics. | 
; $ sited : ENVIRONMENT: User mode - AST reentrant | 
: re sre ! AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 | 
: 42 0042 1 | MODIFIED BY: | 
; 43 0043 1} 
3 44 044 1 ! 1-001 - Original. SBL 1-April-1981 
6 045 1: 1-002 - Make total-width a lo ngword. SBL 29-June-1982 
; re 0046 i! . 
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PASSURITE REALE Write an D_floating in F format - V1 semantics 1o~309= 138% 0 $12338 Ax-11 tay V4.0-74 Page 3) 

1-002 PASSWRITE_REALF_D1 = Write D_floating in F form 14-Sep-1984 12:52:04 PASRTL.SRCJPASWRIFD1.852;1 (3) | 
3 ¢ 143 1 ZSBTTL 'PASSWRITE_REALF_D1 = Write D_floating in F format to textfile - v1" | : 
3 144 1 GLOBAL ROUTINE passuaiie REALF_D1 (¢ : 
; 145 1 PFYV: FF SPASSPFU_FILE vant ase ! File variable : 
: 85 146 1 VALUE_0: BLOCK (47 BYTEJ,VALUE_1, i Value to write : 
; 8 147 1 AL“WIDTH: SIGNED, i Total field width | ; 
; § 138 1 FRAC _BIGITS: SIGNED, ! Digits in fraction : 
; 88 149 1 ERRO ! Error unwind address ; 
; 14 ; » : ): NOVALUE = : 
; 91 13g 1 ies ; 
3 4 } ? ! FUNCTIONAL DESCRIPTION: : 
; 94 138 1 This procedure writes a D_floating value in fixed-point notation : 
3 3? 8129 : } to the specified textfile. | : 
: 97 bi86 1 i It uses the VAX-11 Pascal V1 semantics where if the value is not : 
; 169 1! negative, an extra leading blank appears. This is contary to : 
; 100 319 } the ISO standard. : 
Ps . | e 
s 10 Bes 1} This procedure is implemented —" public ‘'single-dollar’’ interfaces : 
: 36 0165 1! to the Pascal Run-Time Library so that it may be excluded from : 
; Ht 3188 : : the shareable image PASRTL.EXE. | : 
i 105 0166 1 | CALLING SEQUENCE: | ; 
: 107 0168 1! CALL PASSWRITE_REALF_D1 (PFV.mr.r, VALUE.rd.v , TOTAL_WIDTH.rl.v, ’ 
; 108 g169 1 | FRAC_DIGITS.rl.v C, ERROR. ja.rJJ) 3 
; 110 O17) i FORMAL PARAMETERS: : 
: 112 b178 1! PFV - The Pascal File Variable (PFV) passed by reference. : 
5 BF gir } } The structure of the PFV is defined in PASPFV.REQ. : 
115 0176 1! VALUE - The D_floating value to write. Note that this is ; 
: 116 0177 1! assed by immediate value, requiring two argument : 
: aE 4 Bie : Rist positions. : 
; 119 0180 TOTAL_WIDTH - Total field width. : 
; 121 182 FRAC_DIGITS - Number of digits in fraction. | 3 
; 138 Bige ; ERROR - Optional. Address to unwind to if an error occurs. : 
i 125 Q186 1 | IMPLICIT INPUTS: | 2 
i 18h mii 3 | 
; 129 0190 1 ' IMPLICIT OUTPUTS: ; 
: 130 0191 1! 3 
eg Be eed : 
> 133 0194 1 | ROUTINE VALUE: | : 
3 (134 0195 1! : 
i 13 b199 | | = 
: 139 0198 1 ! SIDE EFFECTS: ; 
; «#4138 0199 1! ; 
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PASSWRITE_REALF Write an D_ floating in F format - V1 semantics 1e-Se 1984 02:17:52 AX=11 Bliss-32 V4.0-74 Page 4 
1-002 PASSURITE REAL Dio= Urite Dnftoat ing inf fom lecsepe1984 $350:06 — EPASRIL SRESPAGUMLEDT $231 631 
; 133 8300 ] If the file is the standard file OUTPUT, it is implicitly opened. 
> 141 0209 1 ! SIGNALLED ERRORS: 
; 16 is : 
; 14 0204 1! LINTOOLON = Line too Long 
3 148 8 8? } NEGWIDDIG = negative Width or Digits specification is not allowed 
> 146 0207 1 !-- 
: 147 0208 1 
; 148 0209 BEGIN 
; 149 0210 
; 6190 0211 BUILTIN 
; 39) 0 \¢ ACTUALCOUNT; 
; 136 0213 2 
‘sa 0214 2 LOCAL 
> «154 0215 2 FIELD_WIDTH, ! Minimum/actual field width 
; 155 0216 2 TEMP_STRING, ! Temporary for convert 
3; 156 gt ae PFV_ADDR: VOLATILE, ! Enable argument 
s 337 0218 § UNWIND_ACT: VOLATILE, ! Enable argument 
; 158 0219 ERROR_ADDR: VOLATILE; ! Enable argument 
: 159 0220 2 
: 160 0221 2 ENABLE 
3 19) Oss§ § LOCAL_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
> 163 0224 2 1+ 
3: «164 0225 2 ' Get ERROR parameter, if present. 
s 165 0226 2 !- 
; 166 0227 2 
; Ter 0228 2 IF ACTUALCOUNT () GEQU 6 
: 168 0229 2 THEN 
3 Hi osa9 § ERROR_ADDR = .ERROR; ! Set unwind address 
: 171 0232 2 PFV_ADDR = PFV CPFVSR_PFV]; ! Set PFV address 
Bb See 0233 2 
; 73 0234 2 + 
: 174 0235 2 ! The difference between V2 and V1 semantics is that for V2 
3 79 0236 2 ' (and ISO), the representation of the floating point value 
; 176 0237 2 ! has no leading blank if not negative. V1 put a leading 
: 177 0238 2 ! blank there, possibly causing the field to be extended 
; 178 0239 § ' an extra character. 
: 179 0240 ! 
; 180 0241 2 ! To implement this, do a trial conversion of the value into 
; 13) oce¢ é ! a scratch string. The convert routine will tell us how many 
s Ve 02435 2 ! characters are required for the conversion. If the value 
3; 183 0244 2 ! is not negative, increase the field width to 1 more character 
> «(184 0245 2 ! than is necessary. This will cause an extra leading blank. 
: «185 0246 2 !- 
; «4186 0247 H ) ; t 
3 Hs 44 BSe5 FIELD_WIDTH = .TOTAL_WIDTH; ! Get specified field width 
; «189 0250 IF (NOT .VALUE.O (0,15,1,0]) AND ! If value is not negative — 
: 190 0251 (.FIELD WIDTH GEG 05 AND i Don't bother for invalid width 
3; «(191 O¢3¢ (.FRAC_BIGITS GEQ 0) ! Don't bother for invalid digits 
; 136 025 HEN 
: #219 54 BEGIN 
3: 194 55 : 
3 «195 0256 FIELD_WIDTH = 0; ! Expand field 


22 | 
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PASSWRITE_REALF Write an D_floating in F format - V1 semantics 1-52 “1984 02:17:52 AX-11 Bliss-32 V4.0-74 P 
1-002 PASSWRITE_REALF.Di = Write D_floating in F form 1e-8ep-19 4 3:55:34 PASRIL  SREIPASURIF DI 89251 ec? (3). 
cs 0257 
ee 0 28 ‘+ 
9 8 9 ! Do the conversion into a temporary. FIELD_WIDTH will then have 
3 ° ¢ the number of characters needed. 
ia 0 6 ; 
3 ¢ 026 PASSCVT_D_T (VALUE_0 ' Value to convert 
; é 0264 ; TEMP_STRING, i Scratch strin 
: 0265 FIELB_WIDTH, ! Minimum/actual width 
: ¢ 0266 3 ' Maximum width 
; 2 He 3 .FRAC_DIGITS); i Number of fraction digits 
; 5 0269 : 1+ 
: 4 0270 3 ! Set FIELD_WIDTH to be the maximum of the needed length plus 1 
; 2 ps7) 3 ! and the caller-specified width. 
oo 0 i} 3 l- 
3 ¢ 0275 3 
; ¢ 0274 3 FIELD WIDTH = .FIELD_WIDTH + 1; 
‘BE 0275 3 IF .FIELD WIDTH LSS TTOTAL_WIDTH 
; 2 0276 3 THEN 
ie 0277 3 FIELD_WIDTH = .TOTAL_WIDTH; 
; ¢ 0278 3 
3 2 0279 2 END; 
oe 0280 2 
: @ 0281 2 1+ 
; 2 0282 2 ! Now call PASSWRITE_REALF_D to do the actual write. 
= 0283 2 le 
} 2 0284 2 
3 ¢ 0285 2 PASSWRITE_REALF_D (PFV CPFVS$R_PFV], .VALUE_0, .VALUE_1, 
ze. 0286 2 -FIELD WIDTH, .FRAC_DIGITS); 
; ¢ 0287 2 
; ¢ 0288 2 RETURN; 
$ ¢ 0289 2 
; 2 0290 1 END; ! End of routine PASSWRITE_REALF_D1 
-TITLE PASSWRITE_REALF_D1 Write an D_floating in F for 
mat - V1 semantics 
-IDENT \1-002\ 
-EXTRN PASSWRITE_REALF_D1 
-EXTRN PASSCVT_D-T, PASSWRITE_REALF_D 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
0000 60000 ENTRY PASSWRITE_REALF_D1, Save nothing 3 0144 
5E 14 C2 00002 guste #20, S ; 
08 AE 7C 00005 LRQ ERROR_ADDR : 0209 | 
10 AE D4 00008 CLRL PF V_ADD ; 
6D OOSA CF DE 00008 MOVAL 3$, (FP) ; 
06 6C 91 00010 CMPB. (AP), #6 ; 0228 
05 1F 00013 BLSSU ; 
08 AE 18 AC 00 00015 MOVL ERROR, ERROR_ADDR ; 0 ; 
10 AE 04 AC DO QOOIA 18: MOVL PFV FV_AD : Q 
6E 10 Ac b0 O01F MOVL  TOTAL_WIDTH, FIELD_WIDTH : 0248 | 
09 AC Y OpSe TSTB VALUE_0+1 : 0250. 
2C 19 00026 BLSS : 
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PASSWRITE_REALF Write a ing in F format - V1 semantics 1-se =1984 02:17:52 AX-11 Bliss-32 V4.0-74 Page 
1-008 LOCAL_HA Lorel handler 122808-138e 93:35 :3e PASRTL.SRC PASuntiD) 69251 . (4). 
; 3 8 93 1 XSBITL 'LOCAL_HANDLER = Local handler’ 
3 4 94 1 ROUTINE LOCAL_HANDLER ( 
; 5 0295 1 SIGNAC_ARGS: REF BLOCK C, BYTE], ' Signal arguments array 
3 $39 0296 1 MECH_ARGS: REF BLOCK [ BYTE. ! Mechanism arguments array 
; 337 0 44 ENABCE_ARGS: REF VECTOR C, LONG) i Enable arguments array 
; $39 0299 1 
; 240 0300 1 !++ 
> 24) 0301 1 ! FUNCTIONAL DESCRIPTION: 
: sie 0306 1; 
; 24 0305 1! This is the condition handler enabled by PASSWRITE_REALF_D1. 
; 244 0304 1! If the current signal is a Pascal error on the file our establisher 
> 245 0305 1! was called with, we unwind to the caller of the establisher 
; 246 0306 1! with RO being the status code of the error. 
> 247 0307 1! 
; 248 0308 1! 
; 249 0309 1 ! CALLING SEQUENCE: 
; 250 0310 1! 
3 dl Osi) 4 3 status.wlc.v = STATUS_HANDLER (SIGNAL_ARGS.rl.ra, MECH_ARGS.rl.ra, 
; 252 O31¢ 13 ENABLE -ARGS.rl.rad 
3 g29 0313 1! 
; 254 0314 1 ! FORMAL PARAMETERS: 
3 @39 0315 1! 
; 256 Os16 7% ? SIGNAL_ARGS - The signal argument List. 
, gor 0317 1! 
; 258 0318 1! MECH_ARGS - The mechanism argument List. 
> 259 0319 1! 
; 260 0320 1! ENABLE _ARGS - An array with the following 
; 261 0321 1! format: 
; 262 0322 1! 
: 03 0323 1p ee me + 
3 264 0324 1! |  ENB_COUNT | <== ENABLE_ARGS 
; 265 O35e5 7! tewewnescoccece== + 
3 266 0326 1! | ENB_PFV_ADDR } 
; 267 0327 1! teeneesennseee--- + 
; 268 0328 1! | ENB_UNWIND_ACT | 
; 269 0329 1: = eee semewnesemen + 
; 270 0330 1 | | ENB_ERROR_ADDR | 
: 271 Ossi. 4-3 $eweescocoosoescon + 
3; 272 b3a6 1! 
| a9 03335 1! ENB_COUNT is the count of following enable arguments. 
: sie OR : } The count is always at least 2. 
: 276 0336 1! ENB_PFV_ADDR - If non-zero, the address of a longword 
5 $e O36 ’ containing the PFV our establisher is operating on. 
; 279 0339 1! ENB_UNWIND_ACT - Specifies the action 
; 280 0340 1! to Eake on an unwind. The values are: 
; 281 0341 1 | PAS$K_UNWIND_NOP - Do nothing 
3 ob¢ b3e8 : PASSK_UNWIND_UNLOCK = Unlock PFV 
; «284 0344 1! ENB_ERROR_ADDR - Ignored here. 
; 285 0345 1! 
; 286 0346 1°! IMPLICIT INPUTS: 
; tH 0347 1! . : 
; 288 0348 1! The + p> pel PFV placed as the first FAO argument in the primary 
; 289 0349 1! signalled message. 
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1008 LOCAL_HANDCER = Local handler 1o-88b-1986 13:50:04  EPASRTL SRESPASURIFDT 892; 1 ead 


; 3 G 29 i IMPLICIT OUTPUTS 
H 3 5 1} : 
>; 29 0355 1! NONE F 
> 294 be2e 1! : 
3; <P 0355 1 ! ROUTINE VALUE: ; 
; 296 0328 1! : 
R ave 0357 1! SS$_RESIGNAL : 
; 298 0358 1! ; 
; 299 0359 1 ! SIDE EFFECTS: : 
; 300 0360 1! : 
: 30) 0361 1! May cause an unwind. ; 
; b 3306 1! ; 
7 0365 1 !-- : 
; 304 0364 1 : 
; 305 0365 2 BEGIN 3 
; 306 0366 2 3 
; 307 0367 2 LITERAL | $ 
; 308 0368 2 ENB_COUNT = 0, ' Count of enable arguments : 
: 309 0369 2 ENB_PFV_ADDR = ! Address of address of PFV : 
; 310 0370 2 ENB-UNWIND_ACT= 2 ! Address of unwind action | ; 
3° 2N) 0371 2 ENB_ERROR_ADDR = 3; ! Address of address of unwind PC : 
; z1§ O378 2 : 
3; gl 037 § 1+ ‘ ‘ : ; | : 
; 314 0374 ! Determine if this is an unwind. If so, resignal. : 
ee it, 0375 2 ! Otherwise, see if we should cause an unwind. : 
3; se 0376 2 le 3 
3 2 0377 2 : 
; $19 B38 $ IF .SIGNAL_ARGS CCHF$L_SIG_NAME] EQLU SS$_UNWIND : 
3 $55 o300 § RETURN SS$_RESIGNAL; 3 
; 322 0382 2 IF ..ENABLE_ARGS CENB_ERROR_ADDR] NEQ 0 ! Error ‘Continue specified? 

S ies 0383 2 THEN | 

; 324 0384 3 BEGIN 

; Seo 0385 3 

; 326 0386 3 CAL | 

5 Ser 0387 3 COND_NAME: BLOCK (4, BYTE], ! Primary condition name 

; 328 0388 3 COND_CODE; ' Sequence number of error 

3 oer 0389 3 : 

3; ow 0390 3 ‘+ 

e Ba 0391 3 ' Get primary condition name. 

Le oer Ge bee 

; 332 0394 COND_NAME = .SIGNAL_ARGS CCHFSL_SIG_NAME]; 

3 339 0395 3 

; 336 0396 3 le 

» ioe 0397 3 ' Is this a PAS$ error? If not, resignal. 

; 338 0398 3 !e 

; iW 0399 3 

; 340 0400 3 IF .COND_NAME CSTSS$V_FAC_NOJ NEQU PASS_FACILITY 

3: 341 0401 HEN 

3 ra ah) RETURN SS$_RESIGNAL; 

: 34 040 

: 544 404 '¢ 

3 345 405 ! See if the error message is one which is ‘trapped’ 

: 346 0406 ' by ERROR:=CONTINUE. This is done by comparing the 


PASSWRITE_REALF Write an D_floating in F format - V1 semantics 18.82 $ep-1984 02:17:52 AX-11 Bliss-32 V4.0-7 P 9 
1-002 LOCAL HANDLER = Loval hendver eae e= ibe 95:55:6e © YEAsRre gaespacuadign S251 ~ as 


oe message number against a select range. 
409 
COND_CODE = .COND_NAME ([STS$V_CODE); ' Get error number 
IF .COND_ CODE GEQO PASS$K _MSGCONTLO- AND ' Lowest number 
a at D-CODE LEQU PASS$$K_MSGCONTHI Highest number 
BEGIN | 


'4 
i See if the PFVs match. The signaller's PFV is the 
_first FAO parameter in the primary message. 


IF; SIGNAL ARGS C12,0,32,0] EQLA ..ENABLE_ARGS CENB_PFV_ADDR) | 
14 


i we want to unwind to the PC specified in the enable argument 
z error address. 


BEGIN 
i we SUNWIND (NEWPC=..ENABLE_ARGS CENB_ERROR_ADDR)) 
> SIGNAL_STOP (PAS$_BUGCHECK,1,BUG_UNWINDFAIL); 


pole fale lea leolelealelelelelelelelelelelelelealealelelelelolelololo) 
See el ee ek ek at al ak ek ek et ek ae ek ee ee Oe Oe ae eee ee et et eee 
CNAME WN 0 OONAU SWI @ OCONAU SW OOM 


WNWNNWNNANIPIPINININIPOPONYNYDY 2 2 PP OO ee 


AMNININIWE UNOS SLL LLL LLL LES 


END; | 

END; 
RETURN SS$_RESIGNAL; ! Resignal error | 
END; ! End of routine LOCAL_HANDLER | 
.EXTRN PAS$_FACILITY, PASSS$K_MSGCONTLO | 
-EXTRN PASSSK_MSGCONTHI | 
~EXTRN SYSSUNG ING. PAS$_BUGCHECK | 
0004 00000 LOCAL_HANDLER: | 
«WORD Save R2 3 0294 | 
51 04 AC dO 00002 MOVL § SIGNAL_ARGS, R1 ; 0378 | 
00000920 F 04 Al D1 00006 CMPL = &(R1) , “#2336 ; | 
52 13 90008 BEQL =s«d1$S ; | 
50 0c AC DO 0001 MOVL § ENABLE_ARGS, RO : 0382 | 
0c B80 D3 00014 TSTL  a12(ROT ; 

49 13 00017 BEQL =s«éd1S : | 
52 04 Al 00 00019 MOVL 4(R1), COND_NAME > 0394 | 
52 0c 10 €D 9001p CMPZ2V #16, #12, COND _NAME, S*PASS$_FACILITY : 0400 | 
3 12 00022 BNEQ =:'1$ ; 

2 0c g EF 00024 EXTZV #3, #12, COND_NAME, COND CODE : 0410 
000000006 8F 38 D1 00 3 CAPL CON D tobe. #PAS$S$K_MSGCONTLO : 0411 | 
: 
000000006 8F 3¢ D1 09 ‘ CMPL COND_CODE, #PAS$S$K_MSGCONTHI > 0412 | 
1A 000 BGTRU -1$ ; 
04 80 0c Al 01 000 B CMPL  12(R1), @4(RO) > 0421 | 
20 12 0004 BNEO ~=-:«*1$ ; 


H 15 
PASSWRITE_REALF Write an D_floating in F format = V1 semantics 16-Sep-1984 02:17:52 VAX-11 Bliss- 
1-002 LOCAL_HANDCER = Local handler 14-Sep-1984 12:52:04 CPASRTL.SRCIP 
0c 0 DD 0004 PUSHL @12(R0) 
E D4 0004 CLRL -(SP) 
000000006 00 9 fe Bn CALLS #2, SYSSUNWIND 
11 E 04E BLBS RQ, 1$ 
DD B2 PUSHL @# 
1 DD 3 PUSHL #1 
00000000G 8F DD 0005 PUSHL #PAS$_BUGCHECK 
000000006 98 3 FB BR? CALLS 7B TBS$STO 
0 0918 8F 3C 00062 1$: MOVZ2WL #2328, RO 
04 0006 RET 


; Routine Size: 104 bytes, Routine Base: _PASSCODE + 008A 


; 0439 1 
; 380 0440 1 !<BLF/PAGE> 


15 
a SWRITE_REALF Write an D floating in F format - V1 semantics 1}. -Sep-1984 7:52 AX-11 Bliss-32 V4.0-7 P 
2 LOCAL _FANDCER - Lorel handler 14- ~hep- 1382 6: 45:38 PASRTL. SRC PASWRIFD1. 4 2;1 stows 


8 0441 1 END ! End of module PASSWRITE_REALF_D1 
388 bee ! nd of module EALF_D 
45 0 ELUDOM 


~-EXTRN LIBSSTOP 
PSECT SUMMARY 


; Name Bytes Attributes 

: PASSCODE 242 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, COM. PIC,ALIGN(2) 

: Library Statistics 

SS oe ee re ke er Syabol§ eooceoso Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 7 0 581 00:01.0 

; ~$255$0UA28:CPASRTL. OBJ JPASLIB.L32;1 427 27 6 33 00:00.4 

; COMMAND QUALIFIERS 

4 SEES RESORT ERLE SUS FEAL. PY BOL EER /NESOOR ELL FON. LOS SP RAUF ERED IUCR IE PRUE MSRC$:PASWRIFD1/UPDATE=(ENHS$S:PASWRIFD1 


; Sizes 242 code + 0 data bytes 
; Run Time 00:06.9 

5 play ftaes 00:31.7 

3 Lines/CPU Min: 3852 

3 Lexemes/CPU-Min: 9495 

3 s 


renee Used: 61 page 
3a 


Compilation Complete 
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